﻿Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class UsuarioRolBL
    Private _UsuarioRol_DA As UsuarioRolDA = Nothing

    Public Sub New()
        _UsuarioRol_DA = New UsuarioRolDA
    End Sub
    Public Function Add(ByVal usuario_Rol As UsuarioRolBE) As String
        Return _UsuarioRol_DA.Add(usuario_Rol)
    End Function

    Public Function List(ByVal IdRol As Short) As UsuarioRolBECollection
        Return _UsuarioRol_DA.List(IdRol)
    End Function

    Public Function GetList(ByVal IdRol As Short) As DataTable
        Return _UsuarioRol_DA.GetList(IdRol)
    End Function

    Public Function Delete(ByVal IdUsuario As Short, ByVal IdRol As Short) As String
        Return _UsuarioRol_DA.Delete(IdUsuario, IdRol)
    End Function
End Class
